home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / psion / src.doc / unsorted / graph2 / graph.opa / graph.txt next >
Text File  |  1985-06-14  |  10KB  |  600 lines
  1. OPLObjectFile**
  2. LOC::O:\APP\GRAPH.OPLt
  3. Graph.ODB
  4. \OPD\
  5. FLAG%
  6. SPEED%
  7. RANGE
  8. FUNC1$
  9. FUNC2$
  10. FUNC3$
  11. ARRAY
  12. EVENT
  13. GOSUBX
  14. SIN(Q)
  15. COS(Q)
  16. SIN(Q)*SIN(Q*4)
  17. OnOFO
  18. OnOFO
  19. GRAPH
  20. Welcome to the definitive GRAPHO
  21. plotting program for the PsionO
  22. Series 3 computer. Press ENTERO
  23. or ESCape.O
  24. LRFBMSCXIOEDANZPVKT
  25. O3@[ 
  26. O2@`[ 
  27. GRAPHs+
  28. RangesOR+    FunctionsOF+
  29. ShowOS+
  30. ClearOC+
  31. ArrowOA+
  32. InfoOI
  33. Points+
  34. Plot PointsOO+
  35. Edit PointsOE+
  36. Polynomial GRAPH FitOP+
  37. Linear GRAPH FitOL+
  38. Evaluate F(Q)OV
  39. Maths+
  40. Runge-KuttaOK+
  41. Newton RaphsonON+
  42. Sims EquationsOZ+
  43. DeterminantsOD
  44. Special+
  45. Plotting SpeedOB+
  46. Translate PointsOT+
  47. Merge Data FilesOM+
  48. ExitOX
  49. gosub
  50. gosub
  51. Translate Points
  52. SOURCE Data File:O
  53. TARGET Data File:O
  54.  F(Q,Y) =
  55.  G(Q,Y) =
  56. Translate Points
  57. Attempt to convert errorsO
  58. on Y ordinate?O
  59. YesOY+
  60. W7Oy@[    
  61. Translating PointsO
  62. ERRY&
  63. ERRY"
  64. ERRY"
  65. ERRY"
  66. ERRY&
  67. ERRY&
  68. ERROR
  69. Press Escape/Enter to ContinueO
  70. COMPUTE
  71. EVENT
  72. FUNC1$
  73. RANGE
  74. FUNC2$
  75. FUNC3$
  76. Runge-Kutta
  77. Use formula from GRAPH:+
  78. One,Two,Three,Other
  79. Runge-Kutta
  80. Initial Q (X) :*/
  81. B}Tj*/
  82. Final Q (X) :
  83. Initial Y :*/
  84. B}Tj*/
  85. Number Of Steps :O
  86. dY/dQ (Q,Y) :
  87. Create File Of Data Points :+
  88. Yes,No
  89. Select Filename
  90. +"Existing files will be overwrittenO
  91. Data Points File :O
  92. Doing Runge-KuttaO
  93. ERRY&
  94. Escape
  95. +!Do you wish to abandon performingO
  96. Runge-Kutta integration?O
  97. YesOY+
  98. W7Oy@[
  99. Doing Runge-KuttaO
  100. ERRY&
  101. Runge-Kutta
  102. Final Q (X) :
  103. +    Final Y :
  104. Data Points In FileO
  105. ERROR
  106. Press Escape/Enter to ContinueO
  107. Possible Maths ErrorO
  108. FUNC1$
  109. FUNC2$
  110. FUNC3$
  111. Linear GRAPH Fit
  112. Date Name:O
  113. Type Of Fit:+
  114. Unweighted,Weighted
  115. GRAPH Fitting...O
  116. ERRY&
  117. ERRY"
  118. ERRY&
  119. ERRY"
  120. ERRY"
  121. ERRY&
  122. ERRY"
  123. ERRY"
  124. Analysing Fit...O
  125. ERRY&
  126. ERRY"
  127. ERRY"
  128. ERRY"
  129. ERRY"
  130. Unweighted Linear GRAPH Fit (
  131.  Points)K
  132. Weighted Linear GRAPH Fit (
  133.  Points)K
  134. Y = M*Q + CO
  135. Gradient M=
  136. Standard error(M)=
  137. Y-Intercept C=
  138. Standard error(C)=
  139. Correlation Coeff=
  140. Unweighted Linear GRAPH Fit (
  141.  Points)K
  142. Weighted Linear GRAPH Fit (
  143.  Points)K
  144. Y = M*Q + CO
  145. R.M.S. Deviation=
  146. Q-Intercept =
  147. Standard error =
  148. No Q-InterceptO
  149. X-bar=
  150. Y-bar=
  151. Linear GRAPH Fit
  152. +"Do you wish to plot this function:+
  153. Yes,No
  154. GRAPH Number:+
  155. One,Two,Three
  156. Linear GRAPH Fit
  157. +"Fitted linear GRAPH now programmedO
  158. into GRAPH 
  159. Linear GRAPH Fit
  160. Linear GRAPH Fit Failed!
  161. ERROR
  162. Press Escape/Enter to ContinueO
  163. COMPUTE
  164. FUNC3$
  165. FUNC2$
  166. FUNC1$
  167. SIN(Q)
  168. Evaluate F(Q)
  169. Function From GRAPH:+
  170. One,Two,Three,Other
  171. B}Tj*/
  172. Function (Other):
  173. Evaluate F(Q)
  174. F(Q)=
  175. CancelO
  176. ContinueO
  177. EVENT
  178. SOLSIMS
  179. ARRAY
  180. FUNC1$
  181. FUNC2$
  182. FUNC3$
  183. OZ4[ 
  184. Polynomial GRAPH Fit
  185. Data Name:O
  186. Degree Of Fit:+
  187. 1,2,3,4,5,6,7,8
  188. GRAPH Fitting (
  189. VOd|RO
  190. Escape
  191. Do you wish to abandon thisO
  192. Polynomial GRAPH Fit?O
  193. YesOY+
  194. W7Oy@[
  195. GRAPH Fitting (
  196. VOd|RO
  197. Solving Sims...O
  198. O    4[ 
  199. *Q**K
  200. |ZRJO
  201. |ZRJO
  202. |ZRJO
  203. |ZRJO
  204. |ZRJO
  205. |ZRJO    
  206. |ZRJ+
  207. Polynomial GRAPH Fit (degree 
  208. Determinant is 
  209. R.M.S. Fit=
  210.  Data PointsKO
  211. Polynomial GRAPH Fit (degree 
  212. Coefficient C
  213. Polynomial GRAPH Fit (degree 
  214. Polynomial GRAPH Fit (degree 
  215. +"Do you wish to plot this function:+
  216. Yes,No
  217. GRAPH Number:+
  218. One,Two,Three
  219. Polynomial GRAPH Fit (degree 
  220. + Fitted polynomial now programmedO
  221. into GRAPH 
  222. Polynomial GRAPH Fit (degree 
  223. +$Too big a polynomial to attempt plot
  224. Polynomial GRAPH Fit
  225. +!Not enough data to fit this GRAPH
  226. ERROR
  227. Press Escape/Enter to ContinueO
  228. EVENT
  229. COMPUTE
  230. FUNC1$
  231. FUNC2$
  232. FUNC3$
  233. Newton-Raphson Iteration
  234. Use formula from GRAPH:+
  235. One,Two,Three,Other
  236. Newton-Raphson Iteration
  237. F(Q)=
  238. Q starting value:*/
  239. B}Tj*/
  240. Newton Raphson IterationW2LO
  241. Newton Raphson Iteration
  242. F(Q) 
  243. Newton Raphson Iteration
  244. Derivative uncalculable atO
  245. SOLSIMS
  246. ARRAY
  247. OZ4[ 
  248. Determinants Solver
  249. Matrix width/height:+
  250. 2,3,4,5,6,7,8,9
  251. Determinants - Row 
  252. Column 
  253. B}Tj*/
  254. Determinants - Row 
  255. Column 
  256. B}Tj*/
  257. Finding Determinant...O
  258. Determinants Solver
  259. Determinant is 
  260. SOLSIMS
  261. ARRAY
  262. OZ4[ 
  263. Simultaneous Equations
  264. Number Unknowns:+
  265. 2,3,4,5,6,7,8,9
  266. H4\[G
  267. B}Tj*/
  268. B}Tj*/
  269. Solving Sims...O
  270. Sims Solutions
  271. Sims Solutions
  272. Sims Solutions
  273. Determinant=
  274. Sims Solutions
  275. No one solution
  276. ARRAY
  277. PROCG
  278. RANGE
  279. Plot Points
  280. Data Name:O
  281. Plot Points
  282. GRAPH Number:+
  283. One,Two,Three
  284. Range Setting:+
  285. Auto,Current
  286. Plot Function Too:+
  287. No,Yes
  288. Plot Y Error:+
  289. No,Yes
  290. Include (0,0) on axis?O
  291. YesOY+
  292. W7Oy@
  293. ERRY"
  294. ERRY"
  295. ERRY"
  296. ERRY"
  297. ERRY"
  298. ERRY"
  299. @Q@RN
  300. ERRY"
  301. @Q@RWBMx
  302. ERRY"
  303. @Q@RWBQIx
  304. ERROR
  305. Press Escape/Enter to ContinueO
  306. Edit Points
  307. Data Name:O
  308. Edit Points
  309. +%Do you wish to change current points?
  310. YesOY+
  311. W7Oy@[u
  312. YERR"
  313. Edit Points
  314. Data Point: 
  315. Q (or X) Coord:*a
  316. Y Coord:*a
  317. Err in Y Coord:O
  318. Delete Point:+
  319. No,Yes
  320. YERR&
  321. YERR"
  322. Err in Y Coord taken as 1O
  323. YERR&
  324. Edit Points - Add Point 
  325. Q (or X) Coord:*a
  326. Y Coord:*a
  327. Err in Y Coord:O
  328. CancelO
  329. AcceptO
  330. YERR&
  331. YERR"
  332. Err in Y Coord taken as 1O
  333. YERR&
  334. ERROR
  335. Press Escape/Enter to ContinueO
  336. EVENT
  337. RANGE
  338. FUNC1$
  339. FUNC2$
  340. FUNC3$
  341. GRAPH 0 InformationW2LO
  342. GRAPH 
  343.  InformationK
  344. <= Q <=KO
  345. <= Y <=KO
  346. F(Q)=
  347. PROCG
  348. Clear & Replot
  349. GRAPH Number:+
  350. One,Two,Three,ALL
  351. Which GRAPH?O
  352. PROCG
  353. FUNC1$
  354. FUNC2$
  355. FUNC3$
  356. +    Functions
  357. GRAPH Number:+
  358. One,Two,Three
  359. F(Q)=
  360. Function Not Changed
  361. PROCG
  362. RANGE
  363. Ranges
  364. GRAPH Number:+
  365. One,Two,Three
  366. Ranges (GRAPH 
  367. Minimum Q:*a
  368. Maximum Q:*a
  369. Minimum Y:*a
  370. Maximum Y:*a
  371. Invalid Ranges - Not Set
  372. FLAG%
  373. Are you sure?O
  374. YesOY+
  375. RANGE
  376. @Q@RN
  377. EVENT
  378. SPEED%
  379. Plotting GRAPH 
  380. Om4`[
  381. Escape
  382. Do you wish to abort plottingO
  383. GRAPH 
  384. YesOY+
  385. W7Oy@[
  386. Plotting GRAPH 
  387. RANGE
  388. FUNC3$
  389. FUNC2$
  390. FUNC1$
  391. Function Undefined
  392. At Q=
  393. Enter Y value:*a
  394. @Q@RN
  395. @Q@RN
  396. EVENT
  397. RANGE
  398. Arrow
  399. +#Which GRAPH plotting plotting area?O
  400. OnOFO
  401. OnOFO
  402. Quit from Arrow firstO
  403. Om8[    
  404. OE8[    
  405. @[@VO
  406. @Q@VO
  407. SPEED%
  408. Plotting Speed
  409. Current setting:+
  410. SLOWO
  411. Current setting:+
  412. MEDIUMO
  413. Current setting:+
  414. FASTO
  415. New setting:+
  416. Slow,Medium,Fast
  417. Merge Data Files
  418. 1st Source File:O
  419. 2nd Source File:O
  420. TARGET FILE:O
  421. Error: Source(s) = TargetO
  422. Merging Data FilesO
  423. ERRY&
  424. ERRY"
  425. ERRY&
  426. ERRY"
  427. ERROR
  428. Press Escape/Enter to ContinueO
  429. Help: GRAPH(
  430. GRAPHs(
  431. Points(
  432. Maths(
  433. Special(
  434. Info(
  435. Help: GRAPHs(
  436. Ranges(
  437. +    Functions(
  438. Show(
  439. Clear(
  440. Arrow(
  441. Info(
  442. Help: Ranges(
  443. +$A GRAPH plotting program which won't
  444. +#let you change the range you view a
  445. +#GRAPH over would be pretty useless.
  446. +"This GRAPH plotting program isn't.
  447. +$When you change a GRAPH's range, the
  448. +#most recent function is re-plotted.
  449. Help: Functions(
  450. +!Functions to be plotted/evaluated
  451. +"should be entered in computer type
  452. +#algebra, with Q (not X) as ordinate
  453. + variable. Consult the Psion user
  454. + manual for the EVAL/Calc format.
  455. Help: Show(
  456. +%GRAPH has three GRAPH plotting areas.
  457. +&These are numbered 1 to 3. Use SHOW to
  458. +&select a GRAPH to view. Pressing 1, 2,
  459. +%or 3 has the same effect as selecting
  460. +'Show and then 1, 2, or 3 from the menu.
  461. Help: Clear(
  462. +"If you wish to clear one or all of
  463. +#the GRAPH plotting areas, then this
  464. +!is the menu option to select. The
  465. +!GRAPH(s) will be cleared, and the
  466. +!last function will be re-plotted.
  467. Help: Arrow(
  468. +'This function lets you steer, using the
  469. +'cursor & Psion keys, a cross hair whose
  470. +&Q,Y coordiantes are displayed for you.
  471. +&This only works on GRAPHs One and Two.
  472. Help: Info(
  473. +$Selecting this menu option will show
  474. +$you the current ranges and functions
  475. +#on each of the three GRAPH plotting
  476. +$areas. If a function is too complex,
  477. +#it will not fit on the Info window.
  478. Help: Points(
  479. Plot Points(
  480. Edit Points(
  481. Polynomial GRAPH Fit(
  482. Linear GRAPH Fit(
  483. Evaluate F(Q)(
  484. Help: Plot Points(
  485. +%One of the most interesting things to
  486. +#be done with data points is to plot
  487. +$them. To satisfy the natural urge in
  488. +"us all to plot data points, select
  489. this option.
  490. Help: Edit Points(
  491. +$It is often useful to be able to put
  492. +#your own data into a GRAPH plotting
  493. +&program. Use this option to edit/enter
  494. +$data points; you must do this if you
  495. +&wish to plot or GRAPH fit data points.
  496. Help: Polynomial GRAPH Fit(
  497. +#You can fit polynomials of the form
  498. +%Y = C0 + C1*Q + C2*Q**2 + C3*Q**3 ...
  499. +$Fitted polynomials of up to degree 5
  500. +&can be plotted, either with or without
  501. +!the data points which the fit was
  502. calculated from.
  503. Help: Linear GRAPH Fit(
  504. +#A linear GRAPH fit is just a degree
  505. +%one polynomial fit. You get, however,
  506. +!more statistical analysis on this
  507. +"menu selection. Note that for this
  508. +#as for polynomial fitting, you need
  509. +&to have created a file of data points.
  510. Help: Evaluate F(Q)(
  511. +$To make life easy, you can find F(Q)
  512. +&for one of the three GRAPHed functions
  513. +#or for a different function entered
  514. by you.
  515. Help: Maths(
  516. Runge-Kutta(
  517. Newton Raphson(
  518. Sims Equations(
  519. Determinants(
  520. Help: Runge-Kutta(
  521. +%A cunning way to integrate a function
  522. +"over a specified range (in Q). The
  523. function to be integrated is a
  524. function of Q (X) and Y.
  525. Help: Newton Raphson(
  526. +$Use this to solve F(Q)=0, where F(Q)
  527. +"comes from one of the three GRAPHs
  528. or is entered specifically.
  529. Help: Sims Equations(
  530. +$To solve linear equations in up to 9
  531. +#unknown variables, use this option.
  532. +%The equations are entered in the form
  533. Aa + Bb + Cc = D etc...
  534. Help: Determinants(
  535. +"Gives the determinant of up to 9x9
  536. +"matricies. Sims Eqs also gives the
  537. +!`determinant' of the matrix which
  538. +#is used to represent the equations.
  539. Help: Special(
  540. Plotting Speed(
  541. Translate Points(
  542. Merge Data Files(
  543. Exit(
  544. Help: Plotting Speed(
  545. +"Sometimes you want to have a GRAPH
  546. +(plotted quickly just to get it's general
  547. +&outline. Sometimes you need a detailed
  548. +$plot. Choose between the three GRAPH
  549. +%plotting speeds (Slow, Medium, Fast).
  550. Help: Translate Points(
  551. +$When you have created a file of data
  552. +&points, you way wish to translate them
  553. +%to a new set. eg: translate all the Y
  554. +'coordinates to Y**2 or SIN(Y). Use this
  555. option to do so.
  556. Help: Merge Data Files(
  557. +'This option lets you create a data file
  558. +%of points which comprises of the data
  559. +'points from two other files. Using this
  560. +&option will save you re-entering data.
  561. Help: Exit(
  562. + You can't seriously want help on
  563. + this. If you really want to stop
  564. +#GRAPH, press PSION_ESC. This is not
  565. +"advised at all. Pressing ESC alone
  566. +!usually quits a course of action.
  567. Help: Info(
  568. GRAPH : Version 2.12O
  569.  G Essex-Lopresti 1993O
  570. +&This program may be freely copied, butO
  571. +&I accept no blame for any way in whichO
  572. +#it affects your standard of living.O
  573. START
  574. GOSUBT
  575. GOSUBK
  576. DYDXt
  577. GOSUBLy
  578. GOSUBV
  579. GOSUBP
  580. GOSUBN
  581. COMPUTE
  582. GOSUBDe%
  583. GOSUBZ
  584. SOLSIMS
  585. POSr-
  586. GOSUBO
  587. GOSUBE
  588. GOSUBI
  589. GOSUBC=:
  590. GOSUBS);
  591. GOSUBF
  592. GOSUBR
  593. GOSUBX
  594. AXIS1?
  595. PROCGl@
  596. GOSUBA
  597. GOSUBB
  598. EVENT
  599. GOSUBM
  600.